-- background: 6834 from stack: in
-- bmap block id: 6929
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=81 right=337 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 12
-- part name: select
----- HyperTalk script -----
on mouseup
  global calories
  set lockscreen to true
  put empty into field "select"
  set locktext of field "select" to false
  click at the clickloc
  type "•"
  set locktext of field "select" to true
  set lockscreen to false
  repeat with x=1 to number of lines in field select
    if line x of field select="•" then
      put line x of field "calories" into calories
    end if
  end repeat
  repeat with x=4 to 26
    put round((calories/(the short name of field x))*600)*0.1 into field x
  end repeat
end mouseup


-- part 2 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=100 top=81 right=337 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=248 top=81 right=337 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: calories


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=424 top=306 right=336 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=462 top=306 right=336 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  answer "Quit to where?" with "Home" or "Finder" or "Cancel"
  if it="Home" then go home
  if it="Finder" then domenu "Quit HyperCard"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=10 top=81 right=337 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go next
end mouseUp